Developer CD Series 1996 February: Tool Chest

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / Matts-utils.sea / Matts-utils / draw-arrow.lisp < prev next >
MacBinary | 1992-08-12 | 5.6 KB | [TEXT/CCL2]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Wed Aug 12 07:56:34 1992, modified Wed Aug 12 07:56:34 1992, creator Common Lisp 2, type ASCII, 5004 bytes "draw-arrow.lisp" , at 0x140c 508 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[CCL2]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 64 72 61 77 2d 61 | 72 72 6f 77 2e 6c 69 73 |..draw-a|rrow.lis|
|00000010| 70 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |p.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 13 8c 00 | 00 01 fc a6 ae ac f2 a6 |........|........|
|00000060| ae ac f2 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b1 da 00 00 |........|........|
|00000080| 3b 3b 3b 0d 3b 3b 3b 20 | 64 72 61 77 2d 61 72 72 |;;;.;;; |draw-arr|
|00000090| 6f 77 2e 6c 69 73 70 0d | 3b 3b 3b 0d 0d 23 7c 0d |ow.lisp.|;;;..#|.|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000e0| 0d 50 75 72 70 6f 73 65 | 20 3d 3d 3d 3d 3d 3d 3d |.Purpose| =======|
|000000f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000100| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000110| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000120| 3d 0d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |=.======|========|
|00000130| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000140| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000150| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000160| 3d 3d 0d 44 65 66 69 6e | 65 73 20 74 68 65 20 64 |==.Defin|es the d|
|00000170| 72 61 77 2d 61 72 72 6f | 77 20 66 75 6e 63 74 69 |raw-arro|w functi|
|00000180| 6f 6e 2e 20 43 6f 6e 74 | 72 69 62 75 74 65 64 20 |on. Cont|ributed |
|00000190| 62 79 20 73 65 74 68 40 | 61 69 63 2e 68 72 6c 2e |by seth@|aic.hrl.|
|000001a0| 68 61 63 2e 63 6f 6d 20 | 2e 0d 4d 6f 64 69 66 69 |hac.com |..Modifi|
|000001b0| 65 64 20 62 79 20 4d 61 | 74 74 68 65 77 20 43 6f |ed by Ma|tthew Co|
|000001c0| 72 6e 65 6c 6c 2c 20 63 | 6f 72 6e 65 6c 6c 40 63 |rnell, c|ornell@c|
|000001d0| 73 2e 75 6d 61 73 73 2e | 65 64 75 2e 0d 0d 0d 3d |s.umass.|edu....=|
|000001e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000200| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000210| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00000220| 53 74 61 74 75 73 20 3d | 3d 3d 3d 3d 3d 3d 3d 3d |Status =|========|
|00000230| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000240| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000250| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000260| 0d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.=======|========|
|00000270| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000280| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000290| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002a0| 3d 0d 55 73 61 62 6c 65 | 2e 0d 0d 42 75 67 3a 20 |=.Usable|...Bug: |
|000002b0| 44 6f 65 73 6e 27 74 20 | 63 68 65 63 6b 20 28 77 |Doesn't |check (w|
|000002c0| 69 6e 64 6f 77 2d 63 6f | 6c 6f 72 2d 70 20 28 76 |indow-co|lor-p (v|
|000002d0| 69 65 77 2d 77 69 6e 64 | 6f 77 20 76 69 65 77 29 |iew-wind|ow view)|
|000002e0| 29 20 6f 72 20 2a 63 6f | 6c 6f 72 2d 61 76 61 69 |) or *co|lor-avai|
|000002f0| 6c 61 62 6c 65 2a 20 2e | 0d 0d 0d 3d 3d 3d 3d 3d |lable* .|...=====|
|00000300| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000310| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000320| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000330| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 43 68 61 6e |========|===.Chan|
|00000340| 67 65 20 68 69 73 74 6f | 72 79 20 3d 3d 3d 3d 3d |ge histo|ry =====|
|00000350| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000360| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000370| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 3d 3d 3d |========|====.===|
|00000380| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000390| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 31 31 |========|=====.11|
|000003c0| 2d 41 75 67 2d 39 32 20 | 6d 63 09 43 72 65 61 74 |-Aug-92 |mc.Creat|
|000003d0| 65 64 20 66 72 6f 6d 20 | 73 65 74 68 40 61 69 63 |ed from |seth@aic|
|000003e0| 2e 68 72 6c 2e 68 61 63 | 2e 63 6f 6d 27 73 20 73 |.hrl.hac|.com's s|
|000003f0| 6f 75 72 63 65 2e 0d 09 | 09 52 65 6d 6f 76 65 64 |ource...|.Removed|
|00000400| 20 51 75 69 63 6b 64 72 | 61 77 2e 6c 69 73 70 20 | Quickdr|aw.lisp |
|00000410| 64 65 70 65 6e 64 65 6e | 63 69 65 73 2e 0d 09 09 |dependen|cies....|
|00000420| 46 69 78 65 64 20 63 6f | 6c 6f 72 20 70 61 73 73 |Fixed co|lor pass|
|00000430| 69 6e 67 2e 0d 09 09 4d | 61 64 65 20 69 6e 74 6f |ing....M|ade into|
|00000440| 20 61 20 76 69 65 77 20 | 6d 65 74 68 6f 64 2e 0d | a view |method..|
|00000450| 09 09 4d 6f 76 65 64 20 | 64 72 61 77 2d 74 72 69 |..Moved |draw-tri|
|00000460| 61 6e 67 6c 65 20 69 6e | 74 6f 20 61 20 6c 61 62 |angle in|to a lab|
|00000470| 65 6c 73 2e 0d 09 09 50 | 61 73 73 69 6e 67 20 63 |els....P|assing c|
|00000480| 6f 6c 6f 72 2c 20 6d 61 | 63 70 74 72 2d 70 61 74 |olor, ma|cptr-pat|
|00000490| 74 65 72 6e 2c 20 61 6e | 64 20 6e 75 6d 2d 61 72 |tern, an|d num-ar|
|000004a0| 72 6f 77 2d 6c 65 6e 67 | 74 68 20 6b 65 79 77 6f |row-leng|th keywo|
|000004b0| 72 64 73 2e 0d 0d 7c 23 | 0d 0d 0d 28 69 6e 2d 70 |rds...|#|...(in-p|
|000004c0| 61 63 6b 61 67 65 20 22 | 43 43 4c 22 29 0d 0d 28 |ackage "|CCL")..(|
|000004d0| 65 78 70 6f 72 74 20 27 | 28 44 52 41 57 2d 41 52 |export '|(DRAW-AR|
|000004e0| 52 4f 57 0d 20 20 20 20 | 20 20 20 20 20 20 29 0d |ROW.    |      ).|
|000004f0| 20 20 20 20 20 20 20 20 | 22 43 43 4c 22 29 0d 0d |        |"CCL")..|
|00000500| 0d 3b 3b 3b 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.;;;====|========|
|00000510| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000520| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000530| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000540| 3d 3d 3d 3d 0d 3b 3b 3b | 20 44 65 66 69 6e 65 20 |====.;;;| Define |
|00000550| 74 68 65 20 64 72 61 77 | 2d 61 72 72 6f 77 20 66 |the draw|-arrow f|
|00000560| 75 6e 63 74 69 6f 6e 20 | 61 6e 64 20 66 72 69 65 |unction |and frie|
|00000570| 6e 64 73 2e 0d 3b 3b 3b | 3d 3d 3d 3d 3d 3d 3d 3d |nds..;;;|========|
|00000580| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000590| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000005a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000005b0| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0d 28 64 65 66 67 65 |========|..(defge|
|000005c0| 6e 65 72 69 63 20 64 72 | 61 77 2d 61 72 72 6f 77 |neric dr|aw-arrow|
|000005d0| 20 28 76 69 65 77 20 70 | 74 2d 73 74 61 72 74 20 | (view p|t-start |
|000005e0| 70 74 2d 65 6e 64 0d 20 | 20 20 20 20 20 20 20 20 |pt-end. |        |
|000005f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000600| 20 20 20 20 20 26 6b 65 | 79 20 63 6f 6c 6f 72 20 |     &ke|y color |
|00000610| 6e 75 6d 2d 61 72 72 6f | 77 2d 6c 65 6e 67 74 68 |num-arro|w-length|
|00000620| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6d |        |       m|
|00000640| 61 63 70 74 72 2d 70 61 | 74 74 65 72 6e 29 0d 20 |acptr-pa|ttern). |
|00000650| 20 28 3a 64 6f 63 75 6d | 65 6e 74 61 74 69 6f 6e | (:docum|entation|
|00000660| 20 22 44 72 61 77 73 20 | 61 6e 20 61 72 72 6f 77 | "Draws |an arrow|
|00000670| 20 69 6e 20 76 69 65 77 | 20 66 72 6f 6d 20 70 74 | in view| from pt|
|00000680| 2d 73 74 61 72 74 20 74 | 6f 20 70 74 2d 65 6e 64 |-start t|o pt-end|
|00000690| 2e 20 54 68 65 0d 6b 65 | 79 77 6f 72 64 73 20 63 |. The.ke|ywords c|
|000006a0| 75 73 74 6f 6d 69 7a 65 | 20 69 74 73 20 73 69 7a |ustomize| its siz|
|000006b0| 65 20 61 6e 64 20 61 70 | 70 65 61 72 61 6e 63 65 |e and ap|pearance|
|000006c0| 2e 22 29 29 0d 0d 0d 28 | 64 65 66 6d 65 74 68 6f |."))...(|defmetho|
|000006d0| 64 20 64 72 61 77 2d 61 | 72 72 6f 77 20 28 28 76 |d draw-a|rrow ((v|
|000006e0| 69 65 77 20 76 69 65 77 | 29 0d 20 20 20 20 20 20 |iew view|).      |
|000006f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000700| 20 20 28 70 74 2d 73 74 | 61 72 74 20 69 6e 74 65 |  (pt-st|art inte|
|00000710| 67 65 72 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ger).   |        |
|00000720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 70 74 |        |     (pt|
|00000730| 2d 65 6e 64 20 69 6e 74 | 65 67 65 72 29 0d 20 20 |-end int|eger).  |
|00000740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000750| 20 20 20 20 20 20 26 6b | 65 79 20 28 63 6f 6c 6f |      &k|ey (colo|
|00000760| 72 20 2a 62 6c 61 63 6b | 2d 63 6f 6c 6f 72 2a 29 |r *black|-color*)|
|00000770| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000780| 20 20 20 20 20 20 20 20 | 20 28 6e 75 6d 2d 61 72 |        | (num-ar|
|00000790| 72 6f 77 2d 6c 65 6e 67 | 74 68 20 31 36 2e 30 29 |row-leng|th 16.0)|
|000007a0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000007b0| 20 20 20 20 20 20 20 20 | 20 28 6d 61 63 70 74 72 |        | (macptr|
|000007c0| 2d 70 61 74 74 65 72 6e | 20 2a 62 6c 61 63 6b 2d |-pattern| *black-|
|000007d0| 70 61 74 74 65 72 6e 2a | 29 29 0d 20 20 28 6c 61 |pattern*|)).  (la|
|000007e0| 62 65 6c 73 20 28 28 64 | 72 61 77 2d 74 72 69 61 |bels ((d|raw-tria|
|000007f0| 6e 67 6c 65 20 28 70 74 | 2d 65 6e 64 20 70 32 20 |ngle (pt|-end p2 |
|00000800| 70 33 20 26 61 75 78 20 | 70 6f 6c 79 29 0d 20 20 |p3 &aux |poly).  |
|00000810| 20 20 20 20 20 20 20 20 | 20 20 20 28 73 65 74 71 |        |   (setq|
|00000820| 20 70 6f 6c 79 20 28 23 | 5f 6f 70 65 6e 70 6f 6c | poly (#|_openpol|
|00000830| 79 20 3a 70 74 72 29 29 | 0d 20 20 20 20 20 20 20 |y :ptr))|.       |
|00000840| 20 20 20 20 20 20 28 23 | 5f 6d 6f 76 65 74 6f 20 |      (#|_moveto |
|00000850| 3a 6c 6f 6e 67 20 70 74 | 2d 65 6e 64 29 0d 20 20 |:long pt|-end).  |
|00000860| 20 20 20 20 20 20 20 20 | 20 20 20 28 23 5f 6c 69 |        |   (#_li|
|00000870| 6e 65 74 6f 20 3a 6c 6f | 6e 67 20 70 32 29 0d 20 |neto :lo|ng p2). |
|00000880| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 23 5f 6c |        |    (#_l|
|00000890| 69 6e 65 74 6f 20 3a 6c | 6f 6e 67 20 70 33 29 0d |ineto :l|ong p3).|
|000008a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 23 5f |        |     (#_|
|000008b0| 6c 69 6e 65 74 6f 20 3a | 6c 6f 6e 67 20 70 74 2d |lineto :|long pt-|
|000008c0| 65 6e 64 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |end).   |        |
|000008d0| 20 20 28 23 5f 63 6c 6f | 73 65 70 6f 6c 79 29 0d |  (#_clo|sepoly).|
|000008e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 23 5f |        |     (#_|
|000008f0| 70 61 69 6e 74 70 6f 6c | 79 20 3a 70 74 72 20 70 |paintpol|y :ptr p|
|00000900| 6f 6c 79 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |oly).   |        |
|00000910| 20 20 28 23 5f 6b 69 6c | 6c 70 6f 6c 79 20 3a 70 |  (#_kil|lpoly :p|
|00000920| 74 72 20 70 6f 6c 79 29 | 29 29 0d 20 20 20 20 28 |tr poly)|)).    (|
|00000930| 6c 65 74 2a 20 28 28 78 | 64 69 66 66 20 28 2d 20 |let* ((x|diff (- |
|00000940| 28 70 6f 69 6e 74 2d 68 | 20 70 74 2d 65 6e 64 29 |(point-h| pt-end)|
|00000950| 20 28 70 6f 69 6e 74 2d | 68 20 70 74 2d 73 74 61 | (point-|h pt-sta|
|00000960| 72 74 29 29 29 0d 20 20 | 20 20 20 20 20 20 20 20 |rt))).  |        |
|00000970| 20 28 79 64 69 66 66 20 | 28 2d 20 28 70 6f 69 6e | (ydiff |(- (poin|
|00000980| 74 2d 76 20 70 74 2d 65 | 6e 64 29 20 28 70 6f 69 |t-v pt-e|nd) (poi|
|00000990| 6e 74 2d 76 20 70 74 2d | 73 74 61 72 74 29 29 29 |nt-v pt-|start)))|
|000009a0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 28 61 6e 67 |.       |    (ang|
|000009b0| 20 28 69 66 20 28 7a 65 | 72 6f 70 20 79 64 69 66 | (if (ze|rop ydif|
|000009c0| 66 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |f).     |        |
|000009d0| 20 20 20 20 20 28 69 66 | 20 28 3c 20 78 64 69 66 |     (if| (< xdif|
|000009e0| 66 20 30 29 20 34 2e 37 | 31 32 34 20 31 2e 35 37 |f 0) 4.7|124 1.57|
|000009f0| 30 38 29 20 20 3b 20 33 | 2f 32 20 70 69 20 6f 72 |08)  ; 3|/2 pi or|
|00000a00| 20 31 2f 32 20 70 69 0d | 20 20 20 20 20 20 20 20 | 1/2 pi.|        |
|00000a10| 20 20 20 20 20 20 20 20 | 20 20 28 61 74 61 6e 20 |        |  (atan |
|00000a20| 28 2f 20 78 64 69 66 66 | 20 79 64 69 66 66 29 29 |(/ xdiff| ydiff))|
|00000a30| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 28 61 |)).     |      (a|
|00000a40| 6e 67 64 69 66 66 20 28 | 69 66 20 28 3c 20 79 64 |ngdiff (|if (< yd|
|00000a50| 69 66 66 20 30 29 20 30 | 2e 32 35 20 32 2e 38 39 |iff 0) 0|.25 2.89|
|00000a60| 31 36 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |16)).   |        |
|00000a70| 28 61 6e 67 31 20 28 2b | 20 61 6e 67 20 61 6e 67 |(ang1 (+| ang ang|
|00000a80| 64 69 66 66 29 29 0d 20 | 20 20 20 20 20 20 20 20 |diff)). |        |
|00000a90| 20 20 28 61 6e 67 32 20 | 28 2d 20 61 6e 67 20 61 |  (ang2 |(- ang a|
|00000aa0| 6e 67 64 69 66 66 29 29 | 0d 20 20 20 20 20 20 20 |ngdiff))|.       |
|00000ab0| 20 20 20 20 28 70 32 20 | 28 6d 61 6b 65 2d 70 6f |    (p2 |(make-po|
|00000ac0| 69 6e 74 20 28 2b 20 28 | 72 6f 75 6e 64 20 28 2a |int (+ (|round (*|
|00000ad0| 20 6e 75 6d 2d 61 72 72 | 6f 77 2d 6c 65 6e 67 74 | num-arr|ow-lengt|
|00000ae0| 68 20 28 73 69 6e 20 61 | 6e 67 31 29 29 29 20 28 |h (sin a|ng1))) (|
|00000af0| 70 6f 69 6e 74 2d 68 20 | 70 74 2d 65 6e 64 29 29 |point-h |pt-end))|
|00000b00| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 2b 20 28 |        |    (+ (|
|00000b20| 72 6f 75 6e 64 20 28 2a | 20 6e 75 6d 2d 61 72 72 |round (*| num-arr|
|00000b30| 6f 77 2d 6c 65 6e 67 74 | 68 20 28 63 6f 73 20 61 |ow-lengt|h (cos a|
|00000b40| 6e 67 31 29 29 29 20 28 | 70 6f 69 6e 74 2d 76 20 |ng1))) (|point-v |
|00000b50| 70 74 2d 65 6e 64 29 29 | 29 29 0d 20 20 20 20 20 |pt-end))|)).     |
|00000b60| 20 20 20 20 20 20 28 70 | 33 20 28 6d 61 6b 65 2d |      (p|3 (make-|
|00000b70| 70 6f 69 6e 74 20 28 2b | 20 28 72 6f 75 6e 64 20 |point (+| (round |
|00000b80| 28 2a 20 6e 75 6d 2d 61 | 72 72 6f 77 2d 6c 65 6e |(* num-a|rrow-len|
|00000b90| 67 74 68 20 28 73 69 6e | 20 61 6e 67 32 29 29 29 |gth (sin| ang2)))|
|00000ba0| 20 28 70 6f 69 6e 74 2d | 68 20 70 74 2d 65 6e 64 | (point-|h pt-end|
|00000bb0| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)).     |        |
|00000bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 2b |        |      (+|
|00000bd0| 20 28 72 6f 75 6e 64 20 | 28 2a 20 6e 75 6d 2d 61 | (round |(* num-a|
|00000be0| 72 72 6f 77 2d 6c 65 6e | 67 74 68 20 28 63 6f 73 |rrow-len|gth (cos|
|00000bf0| 20 61 6e 67 32 29 29 29 | 20 28 70 6f 69 6e 74 2d | ang2)))| (point-|
|00000c00| 76 20 70 74 2d 65 6e 64 | 29 29 29 29 29 0d 20 20 |v pt-end|))))).  |
|00000c10| 20 20 20 20 28 77 69 74 | 68 2d 66 6f 63 75 73 65 |    (wit|h-focuse|
|00000c20| 64 2d 76 69 65 77 20 76 | 69 65 77 0d 20 20 20 20 |d-view v|iew.    |
|00000c30| 20 20 20 20 28 77 69 74 | 68 2d 66 6f 72 65 2d 63 |    (wit|h-fore-c|
|00000c40| 6f 6c 6f 72 20 63 6f 6c | 6f 72 0d 20 20 20 20 20 |olor col|or.     |
|00000c50| 20 20 20 20 20 28 77 69 | 74 68 2d 70 65 6e 2d 73 |     (wi|th-pen-s|
|00000c60| 61 76 65 64 0d 20 20 20 | 20 20 20 20 20 20 20 20 |aved.   |        |
|00000c70| 20 28 23 5f 50 65 6e 50 | 61 74 20 6d 61 63 70 74 | (#_PenP|at macpt|
|00000c80| 72 2d 70 61 74 74 65 72 | 6e 29 0d 20 20 20 20 20 |r-patter|n).     |
|00000c90| 20 20 20 20 20 20 20 28 | 23 5f 4d 6f 76 65 54 6f |       (|#_MoveTo|
|00000ca0| 20 3a 6c 6f 6e 67 20 70 | 74 2d 73 74 61 72 74 29 | :long p|t-start)|
|00000cb0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 28 23 5f |.       |     (#_|
|00000cc0| 4c 69 6e 65 54 6f 20 3a | 6c 6f 6e 67 20 70 74 2d |LineTo :|long pt-|
|00000cd0| 65 6e 64 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |end).   |        |
|00000ce0| 20 28 64 72 61 77 2d 74 | 72 69 61 6e 67 6c 65 20 | (draw-t|riangle |
|00000cf0| 70 74 2d 65 6e 64 20 70 | 32 20 70 33 29 29 29 29 |pt-end p|2 p3))))|
|00000d00| 29 29 29 0d 0d 0d 3b 3b | 3b 20 44 6f 6e 65 2e 0d |)))...;;|; Done..|
|00000d10| 0d 28 70 72 6f 76 69 64 | 65 20 22 44 52 41 57 2d |.(provid|e "DRAW-|
|00000d20| 41 52 52 4f 57 22 29 0d | 0d 0d 23 7c 3b 3b 3b 20 |ARROW").|..#|;;; |
|00000d30| 44 65 66 69 6e 65 20 74 | 65 73 74 69 6e 67 20 66 |Define t|esting f|
|00000d40| 75 6e 63 74 69 6f 6e 73 | 2e 0d 0d 28 64 65 66 75 |unctions|...(defu|
|00000d50| 6e 20 73 65 6c 65 63 74 | 2d 72 61 6e 64 6f 6d 6c |n select|-randoml|
|00000d60| 79 2d 66 72 6f 6d 2d 73 | 65 71 75 65 6e 63 65 20 |y-from-s|equence |
|00000d70| 28 73 65 71 75 65 6e 63 | 65 29 0d 20 20 22 52 65 |(sequenc|e).  "Re|
|00000d80| 74 75 72 6e 73 20 61 20 | 72 61 6e 64 6f 6d 6c 79 |turns a |randomly|
|00000d90| 2d 73 65 6c 65 63 74 65 | 64 20 65 6c 65 6d 65 6e |-selecte|d elemen|
|00000da0| 74 20 66 72 6f 6d 20 73 | 65 71 75 65 6e 63 65 2e |t from s|equence.|
|00000db0| 22 0d 20 20 3b 3b 0d 20 | 20 28 65 6c 74 20 73 65 |".  ;;. | (elt se|
|00000dc0| 71 75 65 6e 63 65 20 28 | 72 61 6e 64 6f 6d 20 28 |quence (|random (|
|00000dd0| 6c 65 6e 67 74 68 20 73 | 65 71 75 65 6e 63 65 29 |length s|equence)|
|00000de0| 29 29 29 0d 0d 0d 28 64 | 65 66 75 6e 20 74 65 73 |)))...(d|efun tes|
|00000df0| 74 2d 64 72 61 77 2d 61 | 72 72 6f 77 20 28 29 0d |t-draw-a|rrow ().|
|00000e00| 20 20 22 44 72 61 77 73 | 20 61 72 72 6f 77 73 20 |  "Draws| arrows |
|00000e10| 77 68 69 6c 65 20 74 68 | 65 20 6d 6f 75 73 65 20 |while th|e mouse |
|00000e20| 69 73 20 64 6f 77 6e 2e | 22 0d 20 20 3b 3b 0d 20 |is down.|".  ;;. |
|00000e30| 20 28 6c 65 74 2a 20 28 | 28 76 69 65 77 20 28 6d | (let* (|(view (m|
|00000e40| 61 6b 65 2d 69 6e 73 74 | 61 6e 63 65 20 27 77 69 |ake-inst|ance 'wi|
|00000e50| 6e 64 6f 77 20 3a 77 69 | 6e 64 6f 77 2d 74 69 74 |ndow :wi|ndow-tit|
|00000e60| 6c 65 20 22 54 65 73 74 | 20 44 72 61 77 20 41 72 |le "Test| Draw Ar|
|00000e70| 72 6f 77 22 0d 20 20 20 | 20 20 20 20 20 20 20 20 |row".   |        |
|00000e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000e90| 20 20 20 3a 76 69 65 77 | 2d 73 69 7a 65 20 23 40 |   :view|-size #@|
|00000ea0| 28 34 30 30 20 33 30 30 | 29 29 29 29 0d 20 20 20 |(400 300|)))).   |
|00000eb0| 20 28 64 65 66 6d 65 74 | 68 6f 64 20 76 69 65 77 | (defmet|hod view|
|00000ec0| 2d 63 6c 69 63 6b 2d 65 | 76 65 6e 74 2d 68 61 6e |-click-e|vent-han|
|00000ed0| 64 6c 65 72 20 28 28 76 | 69 65 77 20 28 65 71 6c |dler ((v|iew (eql|
|00000ee0| 20 76 69 65 77 29 29 0d | 20 20 20 20 20 20 20 20 | view)).|        |
|00000ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f10| 20 28 70 74 2d 77 68 65 | 72 65 20 69 6e 74 65 67 | (pt-whe|re integ|
|00000f20| 65 72 29 29 0d 20 20 20 | 20 20 20 28 6c 65 74 20 |er)).   |   (let |
|00000f30| 28 28 70 74 2d 63 65 6e | 74 65 72 20 28 6d 61 6b |((pt-cen|ter (mak|
|00000f40| 65 2d 70 6f 69 6e 74 20 | 28 72 6f 75 6e 64 20 28 |e-point |(round (|
|00000f50| 70 6f 69 6e 74 2d 68 20 | 28 76 69 65 77 2d 73 69 |point-h |(view-si|
|00000f60| 7a 65 20 76 69 65 77 29 | 29 20 32 29 0d 20 20 20 |ze view)|) 2).   |
|00000f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f90| 28 72 6f 75 6e 64 20 28 | 70 6f 69 6e 74 2d 76 20 |(round (|point-v |
|00000fa0| 28 76 69 65 77 2d 73 69 | 7a 65 20 76 69 65 77 29 |(view-si|ze view)|
|00000fb0| 29 20 32 29 29 29 0d 20 | 20 20 20 20 20 20 20 20 |) 2))). |        |
|00000fc0| 20 20 20 28 6e 75 6d 2d | 61 72 72 6f 77 2d 6c 65 |   (num-|arrow-le|
|00000fd0| 6e 67 74 68 20 28 2b 20 | 35 20 28 72 61 6e 64 6f |ngth (+ |5 (rando|
|00000fe0| 6d 20 32 30 29 29 29 0d | 20 20 20 20 20 20 20 20 |m 20))).|        |
|00000ff0| 20 20 20 20 28 6d 61 63 | 70 74 72 2d 70 61 74 74 |    (mac|ptr-patt|
|00001000| 65 72 6e 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ern.    |        |
|00001010| 20 28 73 65 6c 65 63 74 | 2d 72 61 6e 64 6f 6d 6c | (select|-randoml|
|00001020| 79 2d 66 72 6f 6d 2d 73 | 65 71 75 65 6e 63 65 0d |y-from-s|equence.|
|00001030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 6c |        |      (l|
|00001040| 69 73 74 20 2a 42 4c 41 | 43 4b 2d 50 41 54 54 45 |ist *BLA|CK-PATTE|
|00001050| 52 4e 2a 20 2a 44 41 52 | 4b 2d 47 52 41 59 2d 50 |RN* *DAR|K-GRAY-P|
|00001060| 41 54 54 45 52 4e 2a 20 | 2a 47 52 41 59 2d 50 41 |ATTERN* |*GRAY-PA|
|00001070| 54 54 45 52 4e 2a 0d 20 | 20 20 20 20 20 20 20 20 |TTERN*. |        |
|00001080| 20 20 20 20 20 20 20 20 | 20 20 20 2a 4c 49 47 48 |        |   *LIGH|
|00001090| 54 2d 47 52 41 59 2d 50 | 41 54 54 45 52 4e 2a 20 |T-GRAY-P|ATTERN* |
|000010a0| 3b 2a 57 48 49 54 45 2d | 50 41 54 54 45 52 4e 2a |;*WHITE-|PATTERN*|
|000010b0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000010c0| 20 20 20 20 20 29 29 29 | 0d 20 20 20 20 20 20 20 |     )))|.       |
|000010d0| 20 20 20 20 20 28 63 6f | 6c 6f 72 0d 20 20 20 20 |     (co|lor.    |
|000010e0| 20 20 20 20 20 20 20 20 | 20 28 73 65 6c 65 63 74 |        | (select|
|000010f0| 2d 72 61 6e 64 6f 6d 6c | 79 2d 66 72 6f 6d 2d 73 |-randoml|y-from-s|
|00001100| 65 71 75 65 6e 63 65 0d | 20 20 20 20 20 20 20 20 |equence.|        |
|00001110| 20 20 20 20 20 20 28 6c | 69 73 74 20 2a 42 4c 41 |      (l|ist *BLA|
|00001120| 43 4b 2d 43 4f 4c 4f 52 | 2a 20 2a 42 4c 55 45 2d |CK-COLOR|* *BLUE-|
|00001130| 43 4f 4c 4f 52 2a 20 2a | 42 52 4f 57 4e 2d 43 4f |COLOR* *|BROWN-CO|
|00001140| 4c 4f 52 2a 20 2a 44 41 | 52 4b 2d 47 52 41 59 2d |LOR* *DA|RK-GRAY-|
|00001150| 43 4f 4c 4f 52 2a 0d 20 | 20 20 20 20 20 20 20 20 |COLOR*. |        |
|00001160| 20 20 20 20 20 20 20 20 | 20 20 20 2a 44 41 52 4b |        |   *DARK|
|00001170| 2d 47 52 45 45 4e 2d 43 | 4f 4c 4f 52 2a 20 2a 47 |-GREEN-C|OLOR* *G|
|00001180| 52 41 59 2d 43 4f 4c 4f | 52 2a 20 2a 47 52 45 45 |RAY-COLO|R* *GREE|
|00001190| 4e 2d 43 4f 4c 4f 52 2a | 0d 20 20 20 20 20 20 20 |N-COLOR*|.       |
|000011a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 4c 49 |        |     *LI|
|000011b0| 47 48 54 2d 42 4c 55 45 | 2d 43 4f 4c 4f 52 2a 20 |GHT-BLUE|-COLOR* |
|000011c0| 2a 4c 49 47 48 54 2d 47 | 52 41 59 2d 43 4f 4c 4f |*LIGHT-G|RAY-COLO|
|000011d0| 52 2a 20 2a 4f 52 41 4e | 47 45 2d 43 4f 4c 4f 52 |R* *ORAN|GE-COLOR|
|000011e0| 2a 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |*.      |        |
|000011f0| 20 20 20 20 20 20 2a 50 | 49 4e 4b 2d 43 4f 4c 4f |      *P|INK-COLO|
|00001200| 52 2a 20 2a 50 55 52 50 | 4c 45 2d 43 4f 4c 4f 52 |R* *PURP|LE-COLOR|
|00001210| 2a 20 2a 52 45 44 2d 43 | 4f 4c 4f 52 2a 20 2a 54 |* *RED-C|OLOR* *T|
|00001220| 41 4e 2d 43 4f 4c 4f 52 | 2a 0d 20 20 20 20 20 20 |AN-COLOR|*.      |
|00001230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 2a |        |      ;*|
|00001240| 57 48 49 54 45 2d 43 4f | 4c 4f 52 2a 0d 20 20 20 |WHITE-CO|LOR*.   |
|00001250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001260| 20 2a 59 45 4c 4c 4f 57 | 2d 43 4f 4c 4f 52 2a 29 | *YELLOW|-COLOR*)|
|00001270| 29 29 29 0d 20 20 20 20 | 20 20 20 20 28 72 6c 65 |))).    |    (rle|
|00001280| 74 20 28 28 6d 61 63 70 | 74 72 2d 72 65 63 74 20 |t ((macp|tr-rect |
|00001290| 3a 72 65 63 74 20 3a 74 | 6f 70 4c 65 66 74 20 23 |:rect :t|opLeft #|
|000012a0| 40 28 30 20 30 29 0d 20 | 20 20 20 20 20 20 20 20 |@(0 0). |        |
|000012b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000012c0| 20 20 20 3a 62 6f 74 74 | 6f 6d 52 69 67 68 74 20 |   :bott|omRight |
|000012d0| 28 76 69 65 77 2d 73 69 | 7a 65 20 76 69 65 77 29 |(view-si|ze view)|
|000012e0| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 28 23 5f |)).     |     (#_|
|000012f0| 45 72 61 73 65 52 65 63 | 74 20 6d 61 63 70 74 72 |EraseRec|t macptr|
|00001300| 2d 72 65 63 74 29 29 0d | 20 20 20 20 20 20 20 20 |-rect)).|        |
|00001310| 28 6c 6f 6f 70 20 77 68 | 69 6c 65 20 28 23 5f 53 |(loop wh|ile (#_S|
|00001320| 74 69 6c 6c 44 6f 77 6e | 29 20 64 6f 0d 20 20 20 |tillDown|) do.   |
|00001330| 20 20 20 20 20 20 20 20 | 20 20 20 28 64 72 61 77 |        |   (draw|
|00001340| 2d 61 72 72 6f 77 20 76 | 69 65 77 20 70 74 2d 63 |-arrow v|iew pt-c|
|00001350| 65 6e 74 65 72 20 28 76 | 69 65 77 2d 6d 6f 75 73 |enter (v|iew-mous|
|00001360| 65 2d 70 6f 73 69 74 69 | 6f 6e 20 76 69 65 77 29 |e-positi|on view)|
|00001370| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001380| 20 20 20 20 20 20 20 20 | 20 20 20 3a 63 6f 6c 6f |        |   :colo|
|00001390| 72 20 63 6f 6c 6f 72 20 | 3a 6d 61 63 70 74 72 2d |r color |:macptr-|
|000013a0| 70 61 74 74 65 72 6e 20 | 6d 61 63 70 74 72 2d 70 |pattern |macptr-p|
|000013b0| 61 74 74 65 72 6e 0d 20 | 20 20 20 20 20 20 20 20 |attern. |        |
|000013c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000013d0| 20 3a 6e 75 6d 2d 61 72 | 72 6f 77 2d 6c 65 6e 67 | :num-ar|row-leng|
|000013e0| 74 68 20 6e 75 6d 2d 61 | 72 72 6f 77 2d 6c 65 6e |th num-a|rrow-len|
|000013f0| 67 74 68 29 29 29 29 0d | 20 20 20 20 3b 3b 0d 20 |gth)))).|    ;;. |
|00001400| 20 20 20 76 69 65 77 29 | 29 0d 7c 23 00 00 00 00 |   view)|).|#....|
|00001410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001480| 00 00 01 00 00 00 01 aa | 00 00 00 aa 00 00 00 52 |........|.......R|
|00001490| 00 00 00 00 00 00 00 00 | 00 00 80 00 00 c0 00 00 |........|........|
|000014a0| 00 00 0c 00 00 00 00 00 | 00 00 00 00 00 1c 00 00 |........|........|
|000014b0| 0f 64 72 61 77 2d 61 72 | 72 6f 77 2e 6c 69 73 70 |.draw-ar|row.lisp|
|000014c0| 02 00 00 00 54 45 58 54 | 43 43 4c 32 01 00 00 3c |....TEXT|CCL2...<|
|000014d0| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 3c 00 00 |..TEXTCC|L2...<..|
|000014e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014f0| 00 00 a6 ad 88 e9 00 00 | 13 8c 00 00 01 fc 13 00 |........|........|
|00001500| 18 00 19 00 1c 00 1f 00 | 24 00 29 00 2b 00 30 00 |........|$.).+.0.|
|00001510| 31 00 35 00 3a 00 3c 00 | 41 00 46 00 4b 00 50 00 |1.5.:.<.|A.F.K.P.|
|00001520| 55 00 5a 00 5f 00 64 00 | 65 00 67 00 6a 00 6f 00 |U.Z._.d.|e.g.j.o.|
|00001530| 72 00 77 00 7c 00 81 00 | 86 00 8b 00 90 00 95 00 |r.w.|...|........|
|00001540| 9a 00 9f 00 a4 00 a5 00 | aa 00 af 00 b4 00 b9 00 |........|........|
|00001550| be 00 c3 00 c8 00 cd 00 | d2 00 d7 00 dc 00 e1 00 |........|........|
|00001560| e6 00 eb 00 f0 00 f5 00 | fa 00 fc 01 00 01 02 01 |........|........|
|00001570| 05 01 05 01 0a 01 0f 01 | 14 01 19 01 1e 01 23 01 |........|......#.|
|00001580| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00001590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015a0| 00 00 00 00 00 00 00 06 | 00 08 00 29 00 03 01 de |........|...)....|
|000015b0| 02 00 00 29 00 03 01 de | 02 00 00 00 00 00 00 00 |...)....|........|
|000015c0| 0a 81 00 00 0a 81 00 00 | 0a 81 01 00 00 00 00 10 |........|........|
|000015d0| 00 00 06 4d 6f 6e 61 63 | 6f 06 47 65 6e 65 76 61 |...Monac|o.Geneva|
|000015e0| 00 00 00 46 00 02 00 04 | 09 00 00 03 09 01 01 00 |...F....|........|
|000015f0| 00 00 02 00 03 d8 01 00 | 03 e5 02 00 05 46 01 00 |........|.....F..|
|00001600| 05 50 02 00 06 52 01 00 | 06 5c 02 00 07 67 01 00 |.P...R..|.\...g..|
|00001610| 07 74 02 00 0c d2 01 00 | 0c ef 02 00 0d 6d 01 00 |.t......|.....m..|
|00001620| 0d 7c 02 00 0e 3c 01 00 | 0e 54 00 00 01 00 00 00 |.|...<..|.T......|
|00001630| 01 aa 00 00 00 aa 00 00 | 00 52 00 28 b4 6c 07 5a |........|.R.(.l.Z|
|00001640| 00 00 00 1c 00 52 00 01 | 46 52 45 44 00 01 00 12 |.....R..|FRED....|
|00001650| 4d 50 53 52 00 00 00 2a | 00 02 ff ff 00 00 00 60 |MPSR...*|.......`|
|00001660| 00 00 00 00 00 03 ff ff | 00 00 00 4c 00 00 00 00 |........|...L....|
|00001670| 03 ed ff ff 00 00 00 00 | 00 29 9d bc 00 00 00 00 |........|.)......|
+--------+-------------------------+-------------------------+--------+--------+